-- card: 2971 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2664
-- name: 
----- HyperTalk script -----
on openCard
  put the long date into card field "Titre"
end openCard




-- part 1 (field)
-- low flags: 00
-- high flags: 6002
-- rect: left=3 top=97 right=264 bottom=96
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: 


-- part 3 (field)
-- low flags: 00
-- high flags: 6002
-- rect: left=95 top=97 right=264 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: 


-- part 4 (field)
-- low flags: 00
-- high flags: 6002
-- rect: left=162 top=97 right=264 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: 


-- part 5 (field)
-- low flags: 00
-- high flags: 6002
-- rect: left=229 top=97 right=264 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: 


-- part 6 (field)
-- low flags: 00
-- high flags: 6002
-- rect: left=296 top=97 right=264 bottom=364
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: 


-- part 7 (field)
-- low flags: 00
-- high flags: 6002
-- rect: left=363 top=97 right=264 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: 


-- part 8 (field)
-- low flags: 00
-- high flags: 6002
-- rect: left=431 top=97 right=264 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: 


-- part 9 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=409 top=274 right=304 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Recalculer
----- HyperTalk script -----
on mouseUp
  -- Initialisation des variables
  set cursor to 4    -- affiche la montre
  set lockscreen to true  -- ne pas visualiser les calculs intermédiaires
  put 5 into totalLignes
  put 7 into totalColonnes

  -- affecte 0 à la colonne de droite
  repeat with ligne = 2 to totalLignes
    put 0 into line ligne of card field totalColonnes
  end repeat

  -- affecte 0 à la ligne du bas
  repeat with col = 2 to totalColonnes-1
    put 0 into line totalLignes of card field col
  end repeat

  -- Calcul des sous-totaux
  repeat with ligne = 2 to totalLignes-1
    repeat with col = 2 to totalColonnes-1
      put line ligne of card field col into it
      add it to line totalLignes of card field col
      add it to line ligne of card field totalColonnes
    end repeat
  end repeat

  -- Total général
  repeat with  col = 2 to totalColonnes-1
    add line totalLignes of card field col to line totalLignes of card field totalColonnes
  end repeat
end mouseUp




-- part 10 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=3 top=37 right=80 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 256
-- line height: 30
-- part name: 


-- part 12 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=162 top=37 right=80 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 18
-- style flags: 0
-- line height: 30
-- part name: Titre


-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=10 top=272 right=306 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Base
----- HyperTalk script -----
on mouseUp
  visual iris close
  go base
end mouseUp



-- part contents for card part 1
----- text -----

Hôtel
Voiture
Repas
TOTAL

-- part contents for card part 3
----- text -----
Lundi
240
175
90
505

-- part contents for card part 4
----- text -----
Mardi
240
0
150
390

-- part contents for card part 5
----- text -----
Mer.
0
0
367
367

-- part contents for card part 6
----- text -----
Jeudi
265
0
208
473

-- part contents for card part 7
----- text -----
Vend.
265
190
86
541

-- part contents for card part 8
----- text -----
TOTAL
1010
365
901
2276


-- part contents for card part 10
----- text -----
DEPENSES



0

-- part contents for card part 12
----- text -----
Friday, September 15, 1989